﻿
<div class="sidebar">


    <div class="nbox">
        <h3>
            ※会员中心※</h3>
        <div>
            <%
    If Session("cust_id")="" Then
            %>
            <form action="login.asp" method="post">
            <table width="100%" border="0" cellspacing="2" cellpadding="2">
                <tr>
                    <td width="70px" align="right">
                        会员帐号
                    </td>
                    <td>
                        <input name="username" size="10" />
                    </td>
                </tr>
                <tr>
                    <td align="right">
                        会员密码
                    </td>
                    <td>
                        <input name="password" type="password" size="10" />
                    </td>
                </tr>
                <tr>
                    <td align="right">
                        随机码
                    </td>
                    <td>
                        <input name="validateCode" size="10" maxlength="10" />
                        <br />
                        <img src="include/captcha.asp" title="点击更换一个随机码" alt="随机码" onclick="refreshImage(this)" />
                    </td>
                </tr>
                <tr>
                    <td align="right">
                        <a href="<%=MapUrl("reg") %>" target="_blank" title="游龙网会员注册"><font color='red'>会员注册</font></a>
                    </td>
                    <td>
                        <input type="submit" value="登录" />&nbsp;<a href="<%=MapUrl("forgetpw") %>" title="找回密码">找回密码</a>
                    </td>
                </tr>
            </table>
            </form>
            <%
    Else
        sql="select balance,buytimes,available_bonus,isactive,autosend,VIP from customer where cust_id="&Session("cust_id")
        Set rs=conn.execute(sql)
        If Not rs.eof Then
            ISVIP=cint(rs("VIP"))
            isactive=cint(rs("isactive"))
            autosend=cint(rs("autosend"))
            buytimes=rs("buytimes")
            Response.Write "<table width='200' border='0' cellpadding='2' cellspacing='2'>"
            Response.Write "<tr><td colspan='2' height='5'></td></tr>"
            'Response.Write "<tr><td>会员帐号</td><td>"&rs("username")&"</td></tr>"
            Response.Write "<tr ><td align='right'>帐户余额:</td><td>"&CLng(rs("balance"))&"&nbsp;"
            If CLng(rs("balance"))<0 Then
                Response.Write "<a href='"&MapUrl("pay")&"'><font color='red'>补款&gt;</font></a>&nbsp;"
            End If
            Response.Write "<a href='deposit.asp'>储值</a></td></tr>"
            Response.Write "<tr ><td align='right'>可用积分:</td><td>"&rs("available_bonus")
            Response.Write "&nbsp;<a href='"&MapUrl("jifen2card")&"'>换礼</a></td></tr>"
            Response.Write "<tr ><td align='right'>总积分:</td><td>"&buytimes&"</td></tr>"
            If isactive=1 Then
                Response.Write "<tr ><td align='right'>帐号状态:</td><td><font color='green'>已激活</font></td></tr>"	
            Else
                Response.Write "<tr ><td align='right'>帐号状态:</td><td>未激活&nbsp;<a href='"&MapUrl("account_active")&"' title='激活账号'>激活</a></font></td></tr>"
            End If
            If autosend=1 Then
                Response.Write "<tr ><td align='right'>会员类型:</td><td><font color='green'>验证会员</font></td></tr>"	
            Else
                Response.Write "<tr ><td align='right'>会员类型:</td><td>非验证会员&nbsp;<a href='"&MapUrl("account_verify")&"' title='验证会员'>验证</a></font></td></tr>"
            End If
            If ISVIP=1  Then
                Response.Write "<tr ><td align='right'>会员级别:</td><td><font color='green'>VIP</font>会员</td></tr>"
                Response.Write "<tr ><td  align='right'><a href='"&MapUrl("huikuan")&"' title='汇款到国内'><font color='red'>汇款到国内</font></a></td><td>&nbsp;</td></tr>"
            Else
                Response.Write "<tr ><td align='right'>会员级别:</td><td>普通会员&nbsp;<a href='"&MapUrl("account_vip")&"' title='升VIP'>升VIP</a></td></tr>"					
            End If			

            Response.Write "<tr ><td align='right'><a href='"&MapUrl("history")&"' title='我的定单'><font color='red'>我的定单</font></a></td>"
            Response.Write "<td  align='left'><a href='"&MapUrl("profile")&"' title='更新个人资料'>更新个人资料</a></td></tr>"
            Response.Write "<tr  align='right'><td ><a href='"&MapUrl("changepwd")&"' title='更改密码'>更改密码</a></td>"
            Response.Write "<td  align='left'><a href='"&MapUrl("logout")&"' title='退出登陆'>退出登录</a></td></tr>"
            Response.Write "</table>"
        End If
        rs.close
    End If
            %>
        </div>
    </div>
    <br />

    <div class="nbox">
        <h3>
            ※购物车※</h3>
        <div>
            <p>
                您的购物车暂时没有任何商品</p>
        </div>
    </div>
    <br />

    <div class="nbox">
        <h3>
            ※客户服务※</h3>
        <div>
            <p>
                E-mail:<a href="mailto:cs@cardinchina.com" title="联系客服">cs@cardinchina.com</a>
            </p>
            <p>
                电话:&nbsp;&nbsp;+86-21-64260067<br />
                &nbsp;(中国上海)</a>
            </p>
            <p>
                QQ:&nbsp;<font color="red">291580</font>&nbsp; <a target="blank" href="http://wpa.qq.com/msgrd?V=1&amp;Uin=291580&amp;Site=www.cardinchina.com&amp;Menu=yes">
                    <img width="74" height="23" border="0" src="http://wpa.qq.com/pa?p=1:291580:1" alt="点击这里给我发消息 291580" /></a>
            </p>
            <p>
                工作时间: <font color="red">全天24小时服务</font>
            </p>
        </div>
    </div>
    <br />

    <div class="nbox">
        <h3>
            ※最新消息※</h3>
        <div>
            <ul>
                <%
        sql="select * from news where status<>1 order by order_value desc "
        Set rs=conn.execute(sql)
        For i=1 to 8 
            If Not rs.eof Then
                Response.Write "<li><a href='"&MapUrl2("news", "id", rs("news_id"))&"' target='_blank' title='"&rs("title")&"'>"
                Response.Write rs("title")&"</a></li>"
                rs.movenext
            End If
        Next
                %>
            </ul>
        </div>
    </div>
    <br />

    <div class="nbox">
        <h3>
            ※新品推荐※</h3>
        <div>
            <ul>
                <%
        sql="select * from card_infor where isnew=1 and onsale=1 order by card_info_id  desc"
        Set rs=conn.execute(sql)
        For i=1 to 8 
            If Not rs.eof Then
                Response.Write "<li><a href='"&MapUrl2("cardsell", "id", rs("card_info_id"))&"' title='"&rs("card_name")&"'>"		
                Response.Write rs("card_name")&"</a></li>"
                rs.movenext
            End If
        Next
                %>
            </ul>
        </div>
    </div>
    <br />

    
</div>
